home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-10-26 | 1.8 KB | 64 lines | [TEXT/ScoM] |
- Advanced Timesheet Control
-
- Despite the restriction of maintaining a single zone resolution,
- the timesheet can be used to control very complex patterns of
- material. To achieve this, a single instrumental part is split
- into several 'lines' each with its own symbol melody, note-length
- pattern and tonality. Here is an example from STUDY2.
-
- (compile-song-p "ccl;output:" 1/2 "score"
- ; BARS |--|----|---|-|--|---|----|-|
- syn1 tonal1 "- - --- -- --- -"
- syn2 chord1 " - -- ----- "
- syn3 chord2 " - -- - -- "
- bas1 chord3 "--- - -- "
- bas2 tonal " --- --- - - ---- -"
- )
-
- Some of the material here is ametric and the timesheet
- literally 'triggers' the phrase into action. In this example
- syn2 and bas2 use material whose rhythm and velocity are
- generated from a sine-wave.
-
- ; Nigel has been using tick value 96 for 1/4 note.
- ; Because Nigel often mixes ticks and ratios, the function must take
- ; both cases into account.
-
- (defun use-nigel-ticks (l)
- (let (out)
- (dolist (x l)
- (if (is-length-symbol x)
- (push x out)
- (push (* x 5) out)))
- (nreverse out)))
-
- (setq rhy2
- (use-nigel-ticks
- (vector-to-list
- (vector-round 6 192 (gen-sin 2 0.7 32 120)))))
-
- The 32 note-length values produced lie between 6 and 192
- (a demi-semiquaver and a minim) but are not quantized or
- corrected in any way.
-
- The composer must remember that a symbol pattern that is
- longer than the play/mute instructions will need to complete
- its output within the following instruction - unless it is a
- nested pattern. Here is a simple example:
-
- (def-symbol
- solo '(a b c d e f g)
- )
-
- (def-length
- solo '(1/8)
- )
-
- (setq tonal (activate-tonality (major c 5)))
-
- (compile-song-p "ccl;output:" 1/4 "score"
- ; BARS |---|---|
- solo tonal "- -- --"
- )
-
-